home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / ChatBox1_153.lha / ChatBox / Rexx / rkick.cb < prev    next >
Text File  |  1996-04-20  |  1KB  |  45 lines
  1. /* random kick messages */
  2.  
  3. parse arg nick
  4.  
  5. if nick = "" then exit
  6.  
  7. datal = getline()
  8. do i = 0 until data.i = '*/'
  9.         parse value sourceline(i+datal) with data.i
  10. end
  11. i = random(0,i-1,time('S'))
  12. CMD '/KICK' nick data.i
  13. exit
  14.  
  15. sendline:
  16.         return SIGL + 2
  17. getline:
  18.         signal sendline
  19. /* quit messages follow
  20. Do you feel luck, punk?  Well... DO YA?
  21. I'm not in the mood for fucknuttedness today...
  22. If at first you do not succeed, kick, kick again...
  23. I'm afraid you get a taste of the steel toe...
  24. HIIIIAH!  Drop kick to the head!
  25. Sometimes I just don't know my own strength.
  26. So, wanna try that again?
  27. bah
  28. I just knew there was a reason for your existance...
  29. Were you invited?  NO!  So, go away.
  30. Are you really that stupid?  Or, did I mistake you for dung?
  31. Be gone!  Vermin!
  32. Don't mess with a mess.
  33. I'm feeling... *GROWL*  EDGY!
  34. Oh!  I'm so sorry, I meant to op you.
  35. Buttons buttons buttons, what does this one do?
  36. Y'are what y'eat, be gone shithead.
  37. I have the power!
  38. I've got new shoes, see!
  39. When you come back, kindly clean the boot I put in your ass.
  40. Hey, how did that happen?  NEVER, put your ass where I can kick it!
  41. Uh, oops.
  42. Go away, you bother me, kid.
  43. Okay, I've run out of creative kick messages.
  44. */
  45.